| |
| # |
ClassID |
Title |
MajorID |
Seats |
StartDate |
<%
fHideNavBar = False
fHideNumber = False
fHideRequery = False
fHideRule = False
stQueryString = ""
fEmptyRecordset = False
fFirstPass = True
fNeedRecordset = False
fNoRecordset = False
tBarAlignment = "Left"
tHeaderName = "rsclassClasses"
tPageSize = 10
tPagingMove = ""
tRangeType = "Table"
tRecordsProcessed = 0
tPrevAbsolutePage = 0
intCurPos = 0
intNewPos = 0
fSupportsBookmarks = True
fMoveAbsolute = False
If Not IsEmpty(Request("rsclassClasses_PagingMove")) Then
tPagingMove = Trim(Request("rsclassClasses_PagingMove"))
End If
If IsEmpty(Session("rsclassClasses_Recordset")) Then
fNeedRecordset = True
Else
If Session("rsclassClasses_Recordset") Is Nothing Then
fNeedRecordset = True
Else
Set rsclassClasses = Session("rsclassClasses_Recordset")
End If
End If
If fNeedRecordset Then
Set StateU = Server.CreateObject("ADODB.Connection")
StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
StateU.CommandTimeout = Session("StateU_CommandTimeout")
StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rsclassClasses = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT ""ClassID"", ""Title"", ""MajorID"", ""Seats"", ""StartDate"" FROM dbo.""Classes"""
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = StateU
rsclassClasses.Open cmdTemp, , 1, 3
End If
On Error Resume Next
If rsclassClasses.BOF And rsclassClasses.EOF Then fEmptyRecordset = True
On Error Goto 0
If Err Then fEmptyRecordset = True
If fNeedRecordset Then
Set Session("rsclassClasses_Recordset") = rsclassClasses
End If
rsclassClasses.PageSize = tPageSize
fSupportsBookmarks = rsclassClasses.Supports(8192)
If Not IsEmpty(Session("rsclassClasses_Filter")) And Not fEmptyRecordset Then
rsclassClasses.Filter = Session("rsclassClasses_Filter")
If rsclassClasses.BOF And rsclassClasses.EOF Then fEmptyRecordset = True
End If
If IsEmpty(Session("rsclassClasses_PageSize")) Then Session("rsclassClasses_PageSize") = tPageSize
If IsEmpty(Session("rsclassClasses_AbsolutePage")) Then Session("rsclassClasses_AbsolutePage") = 1
If Session("rsclassClasses_PageSize") <> tPageSize Then
tCurRec = ((Session("rsclassClasses_AbsolutePage") - 1) * Session("rsclassClasses_PageSize")) + 1
tNewPage = Int(tCurRec / tPageSize)
If tCurRec Mod tPageSize <> 0 Then
tNewPage = tNewPage + 1
End If
If tNewPage = 0 Then tNewPage = 1
Session("rsclassClasses_PageSize") = tPageSize
Session("rsclassClasses_AbsolutePage") = tNewPage
End If
If fEmptyRecordset Then
fHideNavBar = True
fHideRule = True
Else
tPrevAbsolutePage = Session("rsclassClasses_AbsolutePage")
Select Case tPagingMove
Case ""
fMoveAbsolute = True
Case "Requery"
rsclassClasses.Requery
fMoveAbsolute = True
Case "<<"
Session("rsclassClasses_AbsolutePage") = 1
Case "<"
If Session("rsclassClasses_AbsolutePage") > 1 Then
Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") - 1
End If
Case ">"
If Not rsclassClasses.EOF Then
Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") + 1
End If
Case ">>"
If fSupportsBookmarks Then
Session("rsclassClasses_AbsolutePage") = rsclassClasses.PageCount
End If
End Select
Do
If fSupportsBookmarks Then
rsclassClasses.AbsolutePage = Session("rsclassClasses_AbsolutePage")
Else
If fNeedRecordset Or fMoveAbsolute Or rsclassClasses.EOF Then
rsclassClasses.MoveFirst
rsclassClasses.Move (Session("rsclassClasses_AbsolutePage") - 1) * tPageSize
Else
intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
intNewPos = ((Session("rsclassClasses_AbsolutePage") - 1) * tPageSize) + 1
rsclassClasses.Move intNewPos - intCurPos
End If
If rsclassClasses.BOF Then rsclassClasses.MoveNext
End If
If Not rsclassClasses.EOF Then Exit Do
Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") - 1
Loop
End If
Do
If fEmptyRecordset Then Exit Do
If tRecordsProcessed = tPageSize Then Exit Do
If Not fFirstPass Then
rsclassClasses.MoveNext
Else
fFirstPass = False
End If
If rsclassClasses.EOF Then Exit Do
tRecordsProcessed = tRecordsProcessed + 1
%>
|
<%
If tPageSize > 0 Then
tCurRec = ((Session("rsclassClasses_AbsolutePage") - 1) * tPageSize) + tRecordsProcessed
Else
tRecordsProcessed = tRecordsProcessed + 1
tCurRec = tRecordsProcessed
End If
Response.Write "" & tCurRec & ""
%>
|
<%
ShowField "ClassID", Null
ShowField "Title", Null
ShowField "MajorID", Null
ShowField "Seats", Null
ShowField "StartDate", Null
fHideRule = True
%>
<%
Loop
If tRangeType = "Table" Then Response.Write " "
If tPageSize > 0 Then
If Not fHideRule Then Response.Write "
"
If Not fHideNavBar Then
%>
|
>
|
<%
If Not fHideNumber Then
If tPageSize > 1 Then
Response.Write "Page: " & Session(tHeaderName & "_AbsolutePage") & ""
Else
Response.Write "Record: " & Session(tHeaderName & "_AbsolutePage") & ""
End If
End If
%>
|
<%
End If
End If
%>
<%
' TEMP: cache here until CacheRecordset property is implemented in
' data range
If fNeedRecordset Then
Set Session("rsclassClasses_Recordset") = rsclassClasses
End If
%>
|